home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / word_prc / wf313b.zip / WF312PDF.ZIP / POSTSCR.PDV < prev    next >
Text File  |  1994-02-27  |  8KB  |  198 lines
  1. %!PS-Adobe-2.0
  2. %%Title: WORD FUGUE POSTSCRIPT
  3. %%EndComments
  4.  
  5. statusdict begin 0 setjobtimeout end
  6.  
  7. /wfdict 120 dict def
  8. wfdict begin
  9.  
  10. /wfeur [16#80 /Ccedilla 16#81 /udieresis 16#82 /eacute 16#83 /acircumflex
  11. 16#84 /adieresis 16#85 /agrave 16#86 /aring 16#87 /ccedilla 16#88 /ecircumflex
  12. 16#89 /edieresis 16#8a /egrave 16#8b /idieresis 16#8c /icircumflex
  13. 16#8d /igrave 16#8e /Adieresis 16#8f /Aring 16#90 /Eacute 16#91 /ae 16#92 /AE
  14. 16#93 /ocircumflex 16#94 /odieresis 16#95 /ograve 16#96 /ucircumflex
  15. 16#97 /ugrave 16#98 /ydieresis 16#99 /Odieresis 16#9a /Udieresis 16#9b /cent
  16. 16#9c /sterling 16#9d /yen 16#9e /Edieresis 16#9f /florin 16#a0 /aacute
  17. 16#a1 /iacute
  18. 16#a2 /oacute 16#a3 /uacute 16#a4 /ntilde 16#a5 /Ntilde 16#a6 /ordfeminine
  19. 16#a7 /ordmasculine 16#a8 /questiondown 16#ab /onehalf 16#ac /onequarter
  20. 16#ad /exclamdown 16#ae /guillemotleft 16#af /guillemotright
  21. 16#b0 /tilde 16#b4 /guilsinglleft 16#b5 /guilsinglright 16#b7 /fraction
  22. 16#b8 /section 16#bb /currency 16#be /fi 16#bf /fl 16#c0 /lslash
  23. 16#c4 /emdash 16#c9 /oslash 16#ca /oe 16#cc /copyright
  24. 16#d0 /registered 16#d1 /trademark 16#d2 /Ydieresis 16#d3 /otilde
  25. 16#d4 /Otilde  16#d5 /scaron 16#d6 /Scaron 16#d7 /Oacute 16#d8 /thorn
  26. 16#d9 /Thorn 16#da /zcaron 16#db /Zcaron 16#dc /atilde 16#dd /Atilde
  27. 16#de /Iacute 16#df /Idieresis 16#e0 /Ucircumflex
  28. 16#e1 /germandbls 16#e2 /eth 16#e3 /Eth 16#e4 /Uacute 16#e5 /Odieresis
  29. 16#e6 /mu 16#e7 /Ocircumflex 16#eb /Ugrave 16#ec /yacute 16#ed /Yacute
  30. 16#ee /Icircumflex 16#ef /Acircumflex 16#f0 /Egrave
  31. 16#f1 /plusminus 16#f2 /Ecircumflex 16#f3 /Igrave 16#f4 /Agrave
  32. 16#f6 /divide 16#f7 /Aacute 16#f8 /degree 16#f9 /bullet
  33. 16#fa /periodcentred 16#fb /threequarters
  34. 16#fc /onesuperior 16#fd /twosuperior 16#fe /threesuperior
  35. ] def
  36.  
  37. /RE {         %% add extra chars to font
  38.     /reencode 12 dict def
  39.     reencode begin
  40.         /newfontname exch def
  41.         /basefontname exch def
  42.         FontDirectory newfontname known not
  43.             {/basefont basefontname findfont def
  44.             /newfont basefont maxlength dict def
  45.             basefont {exch dup /FID ne
  46.                     {dup /Encoding eq
  47.                         {exch dup length array copy newfont 3 1 roll put}
  48.                         {exch newfont 3 1 roll put} ifelse
  49.                     }
  50.                     {pop pop} ifelse
  51.             } forall
  52.             newfont /FontName newfontname put
  53.             wfeur aload
  54.             length 2 idiv {newfont /Encoding get 3 1 roll put} repeat
  55.             newfontname newfont definefont pop
  56.         } if
  57.     newfontname
  58.     end
  59. } bind def
  60.  
  61. /hsr { /LH 12 def
  62.        /sz 10 def
  63.      } bind def
  64.  
  65.   %% define the 35 standard postscript 2.0 fonts
  66.   %% first 13 are the standard ones for postscript 1.0
  67. /fcr  { hsr /Courier /f0 RE findfont 10 scalefont setfont } bind def
  68. /fci  { hsr /Courier-Oblique /f1 RE findfont 10 scalefont setfont } bind def
  69. /fcb  { hsr /Courier-Bold /f2 RE findfont 10 scalefont setfont } bind def
  70. /fcbi { hsr /Courier-BoldOblique /f3 RE findfont 10 scalefont setfont } bind def
  71. /fhr  { hsr /Helvetica /f4 RE findfont 10 scalefont setfont } bind def
  72. /fhi  { hsr /Helvetica-Oblique /f5 RE findfont 10 scalefont setfont } bind def
  73. /fhb  { hsr /Helvetica-Bold /f6 RE findfont 10 scalefont setfont } bind def
  74. /fhbi { hsr /Helvetica-BoldOblique /f7 RE findfont 10 scalefont setfont } bind def
  75. /ftr  { hsr /Times-Roman /f8 RE findfont 10 scalefont setfont } bind def
  76. /fti  { hsr /Times-Italic /f9 RE findfont 10 scalefont setfont } bind def
  77. /ftb  { hsr /Times-Bold /f10 RE findfont 10 scalefont setfont } bind def
  78. /ftbi { hsr /Times-BoldItalic /f11 RE findfont 10 scalefont setfont } bind def
  79. /fsy  { hsr /Symbol /f12 RE findfont 10 scalefont setfont } bind def
  80. /fag  { hsr /AvantGarde-Book /f13 RE findfont 10 scalefont setfont } bind def
  81. /fai  { hsr /AvantGarde-BookOblique /f14 RE findfont 10 scalefont setfont } bind def
  82. /fab  { hsr /AvantGarde-Demi /f15 RE findfont 10 scalefont setfont } bind def
  83. /fabi { hsr /AvantGarde-DemiOblique /f16 RE findfont 10 scalefont setfont } bind def
  84. /fbk  { hsr /Bookman-Light /f17 RE findfont 10 scalefont setfont } bind def
  85. /fbi  { hsr /Bookman-LightItalic /f18 RE findfont 10 scalefont setfont } bind def
  86. /fbb  { hsr /Bookman-Demi /f19 RE findfont 10 scalefont setfont } bind def
  87. /fbbi { hsr /Bookman-DemiItalic /f20 RE findfont 10 scalefont setfont } bind def
  88. /fnh  { hsr /Helvetica-Narrow /f21 RE findfont 10 scalefont setfont } bind def
  89. /fni  { hsr /Helvetica-Narrow-Oblique /f22 RE findfont 10 scalefont setfont } bind def
  90. /fnb  { hsr /Helvetica-Narrow-Bold /f23 RE findfont 10 scalefont setfont } bind def
  91. /fnbi { hsr /Helvetica-Narrow-BoldOblique /f24 RE findfont 10 scalefont setfont } bind def
  92. /fsc  { hsr /NewCenturySchlbk-Roman /f25 RE findfont 10 scalefont setfont } bind def
  93. /fsi  { hsr /NewCenturySchlbk-Italic /f26 RE findfont 10 scalefont setfont } bind def
  94. /fsb  { hsr /NewCenturySchlbk-Bold /f27 RE findfont 10 scalefont setfont } bind def
  95. /fsbi { hsr /NewCenturySchlbk-BoldItalic /f28 RE findfont 10 scalefont setfont } bind def
  96. /fpr  { hsr /Palatino-Roman /f29 RE findfont 10 scalefont setfont } bind def
  97. /fpi  { hsr /Palatino-Italic /f30 RE findfont 10 scalefont setfont } bind def
  98. /fpb  { hsr /Palatine-Bold /f31 RE findfont 10 scalefont setfont } bind def
  99. /fpbi { hsr /Palatine-BoldItalic /f32 RE findfont 10 scalefont setfont } bind def
  100. /fzi  { hsr /ZapfChancery-MediumItalic /f33 RE findfont 10 scalefont setfont } bind def
  101. /fzd  { hsr /ZapfDingbats /f34 RE findfont 10 scalefont setfont } bind def
  102. /LH 12 def
  103. /sz 10 def
  104. /sc 1 def
  105. /newl {20 currentpoint exch pop LH sub moveto} bind def
  106. /newp {20 plen 42 sub moveto} bind def
  107. /subsc { gsave
  108.           currentpoint LH 4 div sub moveto
  109.           currentfont 1 0.6 scale
  110.         } bind def
  111. /super {gsave
  112.           currentpoint LH 4 div add moveto
  113.           currentfont 1 0.6 scale
  114.         } bind def
  115. /ssoff { currentpoint pop /cx exch def
  116.          grestore
  117.          currentpoint exch pop cx exch moveto
  118.         } bind def
  119. /SF {  %% scale font
  120.     dup sz mul /sz exch def   %% sz = new point size
  121.     dup /sc exch def          %% sc = scale factor
  122.     dup scale setfont         %% scale font to new size
  123.     /LH sz 1.2 mul def        %% LH = new line height
  124.     currentfont
  125. } bind def
  126. %%    exch findfont exch scalefont setfont
  127. /PS6Point  {%%gsave
  128.             currentfont 0.6 SF} bind def
  129. /PS10Point {%%gsave
  130.             currentfont 1.0 SF} bind def
  131. /PS12Point {%%gsave
  132.             currentfont 1.2 SF} bind def
  133. /PS16Point {%%gsave
  134.             currentfont 1.6 SF} bind def
  135. /PS20Point {%%gsave
  136.             currentfont 2.0 SF} bind def
  137. /PS40Point {%%gsave
  138.             currentfont 4.0 SF} bind def
  139. /unscale {
  140.           currentpoint /dy exch def /dx exch def
  141.           %%grestore
  142.           /LH LH sc div def
  143.           /sz sz sc div def
  144.           %%dx dy moveto
  145.           currentfont 1 sc div dup scale setfont
  146.           } bind def
  147. /L { %%width length - draw line
  148.     currentpoint /dy exch def /dx exch def
  149.     exch dup setlinewidth 0 exch neg rmoveto 0 rlineto stroke newpath
  150.     dx dy moveto
  151. } bind def
  152.  
  153. /Uon {
  154.     Ua 0 eq
  155.     {currentpoint /Uy exch def /Ux exch def} if
  156.     /Ua 1 def
  157. } bind def
  158.  
  159. /Uoff {
  160.     currentpoint
  161.         Ua 1 eq
  162.            {0.5 setlinewidth
  163.            currentpoint 1 sub moveto Ux Uy 1 sub lineto stroke newpath
  164.            } if
  165.         /Ua 0 def
  166.     moveto
  167. } bind def
  168.  
  169. /_landscape {
  170.     0 plen translate -90 rotate
  171. } bind def
  172.  
  173. /_a4 {
  174.     /plen 841.26 def
  175. } bind def
  176.  
  177. /_letter {
  178.     /plen 792 def
  179. } bind def
  180.  
  181. /_legal {
  182.     /plen 1008 def
  183. } bind def
  184.  
  185. /_exec {
  186.     /plen 756 def
  187. } bind def
  188.  
  189. /ST {
  190. %   setpapertray
  191.     pop
  192. } bind def
  193. _a4       %% paper size
  194. fcr       %% initial font
  195. /Ua 0 def %% no underlining
  196.  
  197. %%end of preamble
  198.